home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
tmemchne
/
timemach.frm
< prev
next >
Wrap
Text File
|
1998-11-18
|
23KB
|
698 lines
VERSION 5.00
Object = "{2384AED4-7A82-11D2-9F1B-BD2ED3523208}#6.0#0"; "BWTIMEMACHINE.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "BinaryWork Time Machine OCX - Sample"
ClientHeight = 5865
ClientLeft = 45
ClientTop = 615
ClientWidth = 9675
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5865
ScaleWidth = 9675
StartUpPosition = 2 'CenterScreen
Begin BWTimeMachine.TimeMachine TimeMachine1
Left = 3120
Top = 1320
_ExtentX = 926
_ExtentY = 926
End
Begin VB.Frame Frame4
Caption = "Special functions"
Height = 2175
Left = 5400
TabIndex = 0
Top = 3600
Width = 4215
Begin VB.CommandButton Command17
Caption = "Verify"
Height = 255
Left = 3000
TabIndex = 1
Top = 1800
Width = 1095
End
Begin VB.TextBox Text19
Height = 285
Left = 1800
TabIndex = 14
ToolTipText = "type the month in the format MM"
Top = 1800
Width = 855
End
Begin VB.TextBox Text18
Height = 285
Left = 480
TabIndex = 15
ToolTipText = "type the year in the format YYYY"
Top = 1800
Width = 735
End
Begin VB.CommandButton Command16
Caption = "Verify"
Height = 375
Left = 2280
TabIndex = 16
Top = 720
Width = 1815
End
Begin VB.TextBox Text17
Height = 375
Left = 120
TabIndex = 17
ToolTipText = "type the year in the format YYYY to verify whether this year is a leap-year or not"
Top = 720
Width = 1935
End
Begin VB.Label Label21
Caption = "Month"
Height = 255
Left = 1320
TabIndex = 18
Top = 1800
Width = 495
End
Begin VB.Label Label20
Caption = "Year"
Height = 255
Left = 120
TabIndex = 19
Top = 1800
Width = 495
End
Begin VB.Label Label19
Caption = "Type a especific year and a especific month to retrieve the number of days in the especific month"
Height = 495
Left = 120
TabIndex = 20
Top = 1200
Width = 3975
End
Begin VB.Label Label18
Caption = "Type an year in the textbox to verify whether the year is a year of leap ( 29 days in february ) ( ano bissexto)"
Height = 495
Left = 120
TabIndex = 21
Top = 240
Width = 3975
End
End
Begin VB.Frame Frame3
Caption = "DateDiff equivalent functions"
Height = 2775
Left = 120
TabIndex = 38
Top = 3000
Width = 5175
Begin VB.CommandButton Command15
Caption = "Apply"
Height = 255
Left = 1320
TabIndex = 50
Top = 1560
Width = 2055
End
Begin VB.TextBox Text16
Height = 285
Left = 4080
TabIndex = 49
ToolTipText = "here will apear the number of years involving the diference of the two dates"
Top = 2160
Width = 855
End
Begin VB.TextBox Text15
Height = 285
Left = 2760
TabIndex = 47
ToolTipText = "here will apear the number of months involving the diference of the two dates"
Top = 2160
Width = 735
End
Begin VB.TextBox Text14
Height = 285
Left = 600
TabIndex = 45
ToolTipText = "here will apear the number of days involving the diference of the two dates"
Top = 2160
Width = 1455
End
Begin VB.TextBox Text13
Height = 285
Left = 1320
TabIndex = 42
ToolTipText = "type here the final date of the operation"
Top = 1200
Width = 2055
End
Begin VB.TextBox Text12
Height = 285
Left = 1320
TabIndex = 40
ToolTipText = "type here the initial date of the operation"
Top = 600
Width = 2055
End
Begin VB.Label Label17
Caption = "Years"
Height = 255
Left = 3600
TabIndex = 48
Top = 2160
Width = 615
End
Begin VB.Label Label16
Caption = "Months"
Height = 255
Left = 2160
TabIndex = 46
Top = 2160
Width = 855
End
Begin VB.Label Label15
Caption = "Days"
Height = 255
Left = 120
TabIndex = 44
Top = 2160
Width = 615
End
Begin VB.Label Label14
Caption = "These are the diferences between the dates"
Height = 255
Left = 120
TabIndex = 43
Top = 1800
Width = 4935
End
Begin VB.Label Label13
Caption = "Type the final date in the same format as above"
Height = 255
Left = 120
TabIndex = 41
Top = 960
Width = 4335
End
Begin VB.Label Label12
Caption = "Type the initial date in the format yyyymmdd like it 19981225"
Height = 375
Left = 120
TabIndex = 39
Top = 240
Width = 4935
End
End
Begin VB.Frame Frame2
Caption = "Date calculations"
Height = 3495
Left = 5400
TabIndex = 22
Top = 0
Width = 4215
Begin VB.TextBox Text11
Height = 285
Left = 2040
TabIndex = 37
ToolTipText = "type the value "
Top = 1320
Width = 2055
End
Begin VB.CommandButton Command14
Caption = "Apply the operation"
Height = 975
Left = 120
TabIndex = 35
Top = 2400
Width = 1815
End
Begin VB.TextBox Text10
Height = 285
Left = 2040
TabIndex =